home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / SYS / s / RexxVar.wrx < prev    next >
Text File  |  1996-09-26  |  1KB  |  60 lines
  1. /*
  2.  * Script für WRITE V3.525 © 1993 Tim Teulings
  3.  * Dieses Script zeigt den Umgang mit dem SETREXXVAR- und
  4.  * GETREXXVAR-Befehl
  5.  *
  6.  * Mit dem SETREXXVAR- und GETREXXVAR-Befehl lasen ganzen Zeilen oder Buffer direkt
  7.  * ohne Umweg über den Parser, welche ja mit einer internen 256 Zeichen
  8.  * Begrenzung arbeitet, auslesen und schreiben.
  9.  *
  10.  */
  11.  
  12. IF ~show('P',"WRITE")
  13. THEN DO
  14.  say 'Dieses Script läuft nur, wenn WRITE bereits gestartet wurde !'
  15.  exit 10
  16. END
  17.  
  18. ADDRESS "WRITE"
  19.  
  20. OPTIONS RESULTS
  21.  
  22. 'VERSIONCHECK 3848 "RexxVar.wrx"'
  23. IF RC~=0 THEN DO
  24.   exit 10
  25. END
  26.  
  27. 'ASK "Wollen sie eine Zeile,oder\neinen Buffer auslesen ?" "_Zeile|_Buffer"'
  28.  
  29. TYP = Result
  30.  
  31. IF TYP = 0 THEN DO
  32.   'GetNumber "Welche Zeile möchten sie haben ?" 1'
  33.   VAL = Result
  34. END
  35. ELSE DO
  36.   'GetNumber "Welchen Buffer möchten sie haben ?" 0'
  37.   VAL = Result
  38. END
  39.  
  40. SETREXXVAR Test TYP VAL
  41. IF RC=0 THEN DO
  42.   say Test
  43.   drop Test
  44. END
  45. ELSE DO
  46. 'MESSAGEOK "SETREXXVAR gab einen Fehler zurück !"'
  47. END
  48.  
  49. 'ASK "Wollen sie den ganzen\nText auslesen ?" "_Ja|_NEIN !"'
  50. IF Result = 0 THEN DO
  51.   'GETVAR "_Length"'
  52.   Length = Result
  53.  
  54.   DO x = 1 TO Length
  55.     SETREXXVAR Zeile 0 x
  56.     say Zeile
  57.     drop Zeile
  58.   END
  59. END
  60.